home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagn_r.zip / NETWORK.SWG / 0019_Novell Detection.pas < prev    next >
Pascal/Delphi Source File  |  1994-02-18  |  953b  |  43 lines
  1.  
  2. {
  3.  MB> First - How can I detect if Novell netware is running on a
  4.  MB> computer? and if you can tell me that... how can I get the
  5.  MB> current version? }
  6.  
  7. uses  dos ;
  8. var   Regs : registers ;
  9.       ReplyBuffer : array[1..40] of char ;
  10.  
  11.  
  12. function IPX_Loaded:boolean;
  13. begin
  14.    Regs.AX := $7A00 ;
  15.    intr($2F,Regs) ;
  16.    IPX_Loaded := (Regs.AL = $FF)
  17. end;
  18.  
  19. function Netbios_Loaded:Boolean;
  20. begin
  21.  Regs.AH := $35; (* DOS function that checks an interrupt vector *)
  22.  Regs.AL := $5C; (* Interrupt vector to be checked *)
  23.  NetBios_Installed := True;
  24.  msdos(Regs) ;
  25.  if ((Regs.ES = 0) or (Regs.ES = $F000))
  26.    then  NetBios_Installed := False
  27. end;
  28.  
  29.  
  30. function NetShell_Installed:Boolean;
  31. begin
  32.    with Regs do begin
  33.       AH := $EA ;
  34.       AL := 1 ;
  35.       BX := 0 ;
  36.       ES := seg(ReplyBuffer) ;
  37.       DI := ofs(ReplyBuffer) ;
  38.    end ; (* with do begin *)
  39.    msdos(regs) ;
  40.    NetShell_Installed := (Regs.BX = 0)
  41. end.
  42.  
  43.